home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Movie / Q-Z / VCR 2.0.cpt / VCR 2.0 / background_2707.txt < prev    next >
Text File  |  1990-04-09  |  7KB  |  357 lines
  1. -- background: 2707 from stack: in.0
  2. -- bmap block id: 17590
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Movies
  6. ----- HyperTalk script -----
  7. on closeField
  8.   if (number of this card) > 4 then calc
  9. end closeField
  10.  
  11. on openCard
  12.   if number of this cd > 4 then
  13.     if hilite of btn "VHS" is true then
  14.       put "VHS" into fld type
  15.     else
  16.       put "Beta" into fld type
  17.     end if
  18.   end if
  19.   pass openCard
  20. end openCard
  21.  
  22. on vClick
  23.   set hilite of button "VHS" to not hilite of button "VHS"
  24.   if hilite of button "VHS" is true then set hilite of button "beta" to false
  25. end vClick
  26.  
  27. on bClick
  28.   set hilite of button "beta" to not hilite of button "beta"
  29.   if hilite of button "beta" is true then set hilite of button "VHS" to false
  30. end bClick
  31.  
  32. on b500Click
  33.   set hilite of button "beta" to false
  34.   set hilite of button "VHS" to false
  35. end b500Click
  36.  
  37.  
  38. -- part 17 (field)
  39. -- low flags: 00
  40. -- high flags: 0000
  41. -- rect: left=347 top=38 right=64 bottom=402
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 0
  45. -- font id: 15032
  46. -- text size: 18
  47. -- style flags: 0
  48. -- line height: 24
  49. -- part name: Num
  50.  
  51.  
  52. -- part 6 (field)
  53. -- low flags: 00
  54. -- high flags: 4002
  55. -- rect: left=12 top=116 right=314 bottom=301
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 0
  59. -- font id: 15026
  60. -- text size: 14
  61. -- style flags: 0
  62. -- line height: 18
  63. -- part name: Movies
  64.  
  65.  
  66. -- part 16 (field)
  67. -- low flags: 00
  68. -- high flags: 4002
  69. -- rect: left=300 top=116 right=314 bottom=346
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 0
  73. -- font id: 15026
  74. -- text size: 14
  75. -- style flags: 0
  76. -- line height: 18
  77. -- part name: Counter
  78.  
  79.  
  80. -- part 25 (button)
  81. -- low flags: 00
  82. -- high flags: 0000
  83. -- rect: left=369 top=291 right=314 bottom=397
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 1014 / 1014
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: 
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   visual effect dissolve fast
  95.   go prev card
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 26 (button)
  101. -- low flags: 00
  102. -- high flags: 0000
  103. -- rect: left=402 top=291 right=313 bottom=428
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 1013 / 1013
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: 
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   visual effect dissolve fast
  115.   go next card
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part 28 (button)
  121. -- low flags: 00
  122. -- high flags: 0000
  123. -- rect: left=438 top=176 right=206 bottom=473
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 20098 / 20098
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: 
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   go to stack "Home"
  135. end mouseUp
  136.  
  137.  
  138.  
  139.  
  140. -- part 37 (field)
  141. -- low flags: 00
  142. -- high flags: 4000
  143. -- rect: left=24 top=58 right=79 bottom=279
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 0
  147. -- font id: 14845
  148. -- text size: 14
  149. -- style flags: 0
  150. -- line height: 18
  151. -- part name: Theme
  152.  
  153.  
  154. -- part 38 (button)
  155. -- low flags: 00
  156. -- high flags: 0000
  157. -- rect: left=433 top=287 right=321 bottom=472
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 1009 / 1009
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Search
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   global itt
  169.   search
  170. end mouseUp
  171.  
  172.  
  173.  
  174. -- part 40 (button)
  175. -- low flags: 00
  176. -- high flags: 0000
  177. -- rect: left=438 top=249 right=275 bottom=468
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 1012 / 1012
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: Return
  186. ----- HyperTalk script -----
  187. on mouseUp
  188.   visual effect iris close
  189.   go first card
  190. end mouseUp
  191.  
  192.  
  193.  
  194. -- part 41 (field)
  195. -- low flags: 01
  196. -- high flags: 0002
  197. -- rect: left=411 top=103 right=120 bottom=473
  198. -- title width / last selected line: 0
  199. -- icon id / first selected line: 0 / 0
  200. -- text alignment: 0
  201. -- font id: 14925
  202. -- text size: 14
  203. -- style flags: 256
  204. -- line height: 18
  205. -- part name: Time Left
  206.  
  207.  
  208. -- part 45 (button)
  209. -- low flags: 00
  210. -- high flags: 0000
  211. -- rect: left=438 top=209 right=247 bottom=480
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 20186 / 20186
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: Sort
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   push card
  223.   sort by field "num"
  224.   sort numeric by field "num"
  225.   pop card
  226. end mouseUp
  227.  
  228.  
  229.  
  230. -- part 46 (button)
  231. -- low flags: 00
  232. -- high flags: 8000
  233. -- rect: left=411 top=150 right=169 bottom=489
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: New Card
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   global num
  245.   NuCard
  246.   put num+1 into fld "num"
  247.   set name of this cd to "x" & fld "num"
  248. end mouseUp
  249.  
  250.  
  251.  
  252. -- part 47 (button)
  253. -- low flags: 00
  254. -- high flags: 8000
  255. -- rect: left=402 top=58 right=79 bottom=486
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 0 / 0
  258. -- text alignment: 1
  259. -- font id: 0
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 16
  263. -- part name: Find Time
  264. ----- HyperTalk script -----
  265. on mouseUp
  266.   FindTime
  267. end mouseUp
  268.  
  269.  
  270.  
  271. -- part 48 (button)
  272. -- low flags: 00
  273. -- high flags: 8000
  274. -- rect: left=402 top=39 right=59 bottom=486
  275. -- title width / last selected line: 0
  276. -- icon id / first selected line: 0 / 0
  277. -- text alignment: 1
  278. -- font id: 0
  279. -- text size: 12
  280. -- style flags: 0
  281. -- line height: 16
  282. -- part name: Go to Tape
  283. ----- HyperTalk script -----
  284. on mouseUp
  285.   global tape
  286.   put empty into tape
  287.   goTape
  288. end mouseUp
  289.  
  290.  
  291.  
  292. -- part 49 (button)
  293. -- low flags: 00
  294. -- high flags: 8000
  295. -- rect: left=411 top=132 right=151 bottom=489
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 0 / 0
  298. -- text alignment: 1
  299. -- font id: 0
  300. -- text size: 12
  301. -- style flags: 0
  302. -- line height: 16
  303. -- part name: Index
  304. ----- HyperTalk script -----
  305. on mouseUp
  306.   go second card
  307. end mouseUp
  308.  
  309.  
  310.  
  311. -- part 53 (field)
  312. -- low flags: 00
  313. -- high flags: 0000
  314. -- rect: left=449 top=108 right=120 bottom=473
  315. -- title width / last selected line: 0
  316. -- icon id / first selected line: 0 / 0
  317. -- text alignment: 0
  318. -- font id: 4
  319. -- text size: 6
  320. -- style flags: 0
  321. -- line height: 8
  322. -- part name: Strip
  323.  
  324.  
  325. -- part 51 (field)
  326. -- low flags: 80
  327. -- high flags: 0000
  328. -- rect: left=97 top=31 right=49 bottom=163
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 0
  332. -- font id: 15026
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: Type
  337.  
  338.  
  339. -- part 52 (button)
  340. -- low flags: 00
  341. -- high flags: 0000
  342. -- rect: left=393 top=175 right=213 bottom=434
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 15844 / 15844
  345. -- text alignment: 1
  346. -- font id: 0
  347. -- text size: 12
  348. -- style flags: 0
  349. -- line height: 16
  350. -- part name: New Button
  351. ----- HyperTalk script -----
  352. on mouseUp
  353.   Answer "Please open back door of LaserWriter..." with "Ok"
  354.   doMenu "Print Report..."
  355. end mouseUp
  356.  
  357.